"Casos de test proporcionados por el grupo Los tres Mosqueteros."

a := NeneDePrimaria new.
x := SpectObjectWrapper wrap: a.  a SpectObjectWrapper
x jugar. Error " El objeto no conoce ese mensaje."
x jugarConGrassi. false
x gritar. nil
x hacer:3 mas:4. 7
x hacer:0 mas:4. Error "No se cumple la precondición."
x hacer:4 mas:0. Error "No se cumple la precondición."
x hacerMal:0 mas:4. Error "No se cumple la precondición."
x hacerMal:4 mas:4. Error "No se cumple la postcondición."

y :=Reloj new:15 min:30 seg:16. 
q := SpectObjectWrapper wrap: y.  a SpectObjectWrapper
q pasarDia. 1

y := BackupCell new.
z := SpectObjectWrapper wrap: y. a SpectObjectWrapper
z value:2. a SpectObjectWrapper
z value:1. a SpectObjectWrapper
z restore. a SpectObjectWrapper
z value. 2

y := BackupCell new.
z := SpectObjectWrapper wrap: y. a SpectObjectWrapper
z value:2. a SpectObjectWrapper
z value:1. a SpectObjectWrapper
z restore. a SpectObjectWrapper
z restore. "No se cumple la precondición."

y := BackupCell new.
z := SpectObjectWrapper wrap: y. a SpectObjectWrapper
z value:2. a SpectObjectWrapper 
z value:1. a SpectObjectWrapper 
z restore restore. "No se cumple la precondición."






